home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 April / EnigmA AMIGA RUN 26 (1998)(G.R. Edizioni)(IT)[!][issue 1998-04].iso / earcd / update / fusion_update / installerscript < prev    next >
Text File  |  1997-10-01  |  10KB  |  428 lines
  1. ;**************************************************
  2. ;
  3. ;$VER: FUSION v2.0 Accessory installer (10/01/97)
  4. ;
  5. ; Title:
  6. ;    FUSION's Software Accessory Installer
  7. ; 
  8. ; Description:
  9. ;    The Commodore Installer Script for FUSION
  10. ;
  11. ; Installer script by Jim Drew
  12. ;
  13. ;**************************************************
  14.  
  15. (set true 1)
  16. (set false 0)
  17. (set quote "\"")
  18. (set nothing "")
  19. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  20.  
  21. (set FUSION_dir (getassign "FUSION"))
  22. (set c_dir (getassign "C"))
  23. (set libs_dir (getassign "LIBS"))
  24. (set fonts_dir (getassign "FONTS"))
  25. (set devs_dir (getassign "DEVS"))
  26. (set s_dir (getassign "S"))
  27.  
  28. (set Src_root "")
  29. (set Src_c "INSTALL/c/")
  30. (set Src_s "INSTALL/s/")
  31. (set Src_libs "INSTALL/libs/")
  32. (set Src_devs "INSTALL/devs/")
  33. (set Src_utils "INSTALL/utils/")
  34. (set Src_ICP "INSTALL/ICP/")
  35. (set Src_main "INSTALL/")
  36. (set Src_docs "INSTALL/Documentation/")
  37. (set Src_ROMS "INSTALL/ROM_Images/")
  38. (set Src_Video "INSTALL/Video_Drivers/")
  39. (set Src_ExtIO "INSTALL/Ext_IO/")
  40.  
  41. (set MSG_CopyDevs1 "\n\nCopying needed device ")
  42. (set MSG_CopyDevs2 " to DEVS:")
  43.  
  44. ; start with not updated software!
  45.  
  46. (set is_update false)
  47.  
  48. (if  (<> FUSION_dir nothing)
  49.      (if  (askbool
  50.                (prompt "\n\n\nSome version of FUSION already exists in"
  51.                " your drawer named: \n\n"
  52.                quote FUSION_dir quote
  53.                "\n\nDo you want the update installed over it?")
  54.                (help
  55.                "\n\n\nThe installer has determined that you already have a "
  56.                "some version of the MAC emulation software installed "
  57.                "on your system.  If this is wrong or you want the update "
  58.                "installed elsewhere, select 'NO', otherwise select 'YES'."
  59.                )
  60.                (default 1)
  61.           )
  62.                (set is_update true) 
  63.  
  64. ;else ask where to put software
  65.  
  66.                (
  67.                (set FUSION_dir
  68.                (askdir
  69.                     (prompt "Where would you like the updated software "
  70.                     "installed?\n"
  71.                     "The directory 'FUSION' will be created automatically.\n")
  72.                     (help @askdir-help)
  73.                     (default @default-dest)
  74.                )
  75.                )
  76.  
  77.                (set FUSION_dir
  78.                (tackon FUSION_dir "FUSION")
  79.                )
  80.  
  81.                (makedir FUSION_dir
  82.                (infos)
  83.                )
  84.           )
  85.      )
  86. )
  87.  
  88. ; FUSION: was not previously assigned, so ask where to make it
  89. (if  (= FUSION_dir nothing)
  90.           (
  91.           (set FUSION_dir
  92.                (askdir
  93.                     (prompt "Where would you like the software installed?\n"
  94.                     "The directory 'FUSION' will be created automatically.\n")
  95.                     (help @askdir-help)
  96.                     (default @default-dest)
  97.                )
  98.           )
  99.  
  100.           (set FUSION_dir
  101.           (tackon FUSION_dir "FUSION")
  102.           )
  103.  
  104.  
  105.           (makedir FUSION_dir
  106.           (infos)
  107.           )
  108.      )
  109. )
  110.  
  111. (set @default-dest FUSION_dir)
  112.  
  113. (complete 5)
  114.  
  115. (working omp "...Please Wait...")
  116.  
  117. (copyfiles
  118.      (prompt "Select file(s) to be copied into your C: directory:")
  119.      (help "\n\n\n\n\nThis will copy RsrvCold and RsrvWarm to your C: "
  120.      "directory.\n\n\n\n\n\n\n\n"
  121.      @copyfiles-help)
  122.      (source Src_c)
  123.      (dest c_dir)
  124.      (pattern "#?")
  125.      (confirm)
  126. )
  127.    
  128. (complete 10)
  129.  
  130. (working omp "...Please Wait...")
  131.  
  132. ; copy amia.device
  133.  
  134. (copylib
  135.    (source (tackon Src_devs "amia.device"))
  136.    (dest "DEVS:")
  137.    (prompt MSG_CopyDevs1 "amia.device" MSG_CopyDevs2)
  138.    (help @copylib-help)
  139.    (confirm)
  140. )
  141.  
  142. (complete 15)
  143.  
  144. ; copy mscd.device
  145.  
  146. (copylib
  147.    (source (tackon Src_devs "mscd.device"))
  148.    (dest "DEVS:")
  149.    (prompt MSG_CopyDevs1 "mscd.device" MSG_CopyDevs2)
  150.    (help @copylib-help)
  151.    (confirm)
  152. )
  153.  
  154. (complete 20)
  155.  
  156. ; copy mshf.device
  157.  
  158. (copylib
  159.    (source (tackon Src_devs "mshf.device"))
  160.    (dest "DEVS:")
  161.    (prompt MSG_CopyDevs1 "mshf.device" MSG_CopyDevs2)
  162.    (help @copylib-help)
  163.    (confirm)
  164. )
  165.  
  166. (complete 25)
  167.  
  168. ;copy multi-os.device
  169.  
  170. (copylib
  171.    (source (tackon Src_devs "multi-os.device"))
  172.    (dest "DEVS:")
  173.    (prompt MSG_CopyDevs1 "'multi-os.device'" MSG_CopyDevs2)
  174.    (help @copylib-help)
  175.    (confirm)
  176. )
  177.  
  178. (complete 30)
  179.  
  180. (working omp "...Please Wait...")
  181.  
  182. ;create utilties directory
  183. (set Utils_dir
  184. (cat FUSION_dir)
  185. )
  186. (set Utils_dir
  187. (tackon Utils_dir "Utils")
  188. )
  189.  
  190. (makedir Utils_dir
  191. ;(infos)
  192. )
  193.    
  194. (copyfiles
  195.     (prompt "Select files to be copied to the FUSION:Utils directory:")
  196.     (help "\n\n\n\n\nThis will copy all of the utilities for "
  197.     "FUSION.\n\n\n\n\n\n\n"
  198.      @copyfiles-help)
  199.      (source Src_main)
  200.      (dest Utils_dir)
  201.      (pattern "(ROMUtil#?)")
  202.      (confirm)
  203. )
  204.  
  205.  
  206. (complete 40)
  207.  
  208. ;copy AppIcon
  209.  
  210. (complete 50)
  211.  
  212. (copyfiles
  213.      (source Src_Main)
  214.      (dest FUSION_dir)
  215.      (pattern "(DEF_AppIcon.info)")
  216. )
  217.  
  218. (complete 55)
  219.  
  220. ;create Video_Drivers directory
  221.    
  222. (set VideoDrvr_dir
  223. (cat FUSION_dir)
  224. )
  225. (set VideoDrvr_dir
  226. (tackon VideoDrvr_dir "Video_Drivers")
  227. )
  228.  
  229. (makedir VideoDrvr_dir
  230. ;(infos)
  231. )
  232.  
  233. (working omp "...Please Wait...")
  234.  
  235. (copyfiles
  236.      (prompt "Select file(s) to be copied into your Video_Drivers directory:")
  237.      (help "\n\n\n\n\nThis will copy the video drivers to the proper "
  238.      "directory.  ALL MAC video drivers must reside in your "
  239.      "'FUSION:Video_Drivers' directory.\n\n\n\n\n\n"
  240.      @copyfiles-help)
  241.      (source Src_video)
  242.      (dest VideoDrvr_dir)
  243.      (pattern "(#?)")
  244.      (confirm)
  245. )
  246.  
  247. (complete 60)
  248.  
  249. ;create ExtIO directory
  250.  
  251. (set ExtIODrvr_dir
  252. (cat FUSION_dir)
  253. )
  254. (set ExtIODrvr_dir
  255. (tackon ExtIODrvr_dir "Ext_IO")
  256. )
  257.  
  258. (makedir ExtIODrvr_dir
  259. ;(infos)
  260. )
  261.  
  262. (working omp "...Please Wait...")
  263.  
  264. (copyfiles
  265. (prompt "Select file(s) to be copied into your Ext_IO directory:")
  266.      (help "\n\n\n\n\nThis will copy the external I/O drivers to the proper "
  267.      "directory.  ALL external I/O drivers must reside in your "
  268.      "'FUSION:Ext_IO' directory.\n\n\n\n\n\n"
  269.      @copyfiles-help)
  270.      (source Src_ExtIO)
  271.      (dest ExtIODrvr_dir)
  272.      (pattern "(#?)")
  273.      (confirm)
  274. )
  275.  
  276. (complete 70)
  277.  
  278. ;create Documentation directory
  279.  
  280. (set Docs_dir
  281. (cat FUSION_dir)
  282. )
  283. (set Docs_dir
  284. (tackon Docs_dir "Documentation")
  285. )
  286.  
  287. (makedir Docs_dir
  288. (infos)
  289. )
  290.  
  291. (working omp "...Please Wait...")
  292.  
  293. (copyfiles
  294.      (prompt "Select file(s) to be copied Documentation directory:")
  295.      (help "\n\n\n\nThis will copy the AmigaGuide documentation for "
  296.      "FUSION.  ALL emulation documentation should reside in your "
  297.      "'FUSION:Documenation' directory.\n\n\n\n\n\n"
  298.      @copyfiles-help)
  299.      (source Src_docs)
  300.      (dest Docs_dir)
  301.      (pattern "#?")
  302.      (confirm)
  303. )
  304.  
  305. (complete 80)
  306.  
  307. ;create ROM_Images directory
  308.  
  309. (set ROM_dir
  310. (cat FUSION_dir)
  311. )
  312. (set ROM_dir
  313. (tackon ROM_dir "ROM_Images")
  314. )
  315.  
  316. (makedir ROM_dir
  317. ;(infos)
  318. )
  319.  
  320. (complete 85)
  321.  
  322. ;create ICP directory
  323.    
  324. (set ICP_dir
  325. (cat FUSION_dir)
  326. )
  327. (set ICP_dir
  328. (tackon ICP_dir "ICP")
  329. )
  330.  
  331. (makedir ICP_dir
  332. (infos)
  333. )
  334.  
  335. (working omp "...Please Wait...")
  336.  
  337. (copyfiles
  338.      (prompt "Select files to be copied into your ICP directory:")
  339.      (help "\n\n\n\n\nThis will copy the InterCommunication Port "
  340.      "programs.  ALL ICP related programs should reside in your "
  341.      "'FUSION:ICP' directory.\n\n\n\n\n\n"
  342.      @copyfiles-help)
  343.      (source Src_ICP)
  344.      (dest ICP_dir)
  345.      (pattern "(#?)")
  346.      (confirm)
  347. )
  348.  
  349. ;create HardFiles directory
  350.    
  351. (set HF_dir
  352. (cat FUSION_dir)
  353. )
  354. (set HF_dir
  355. (tackon HF_dir "HardFiles")
  356. )
  357.  
  358. (makedir HF_dir
  359. ;(infos)
  360. )
  361.  
  362. (complete 90)
  363.  
  364. ; add RsrvWarm to Startup-Sequence if this is not an update
  365.  
  366. (if  (= is_update false)
  367.      (if  (askbool
  368.                (prompt "\nIn order for MAC emulation to work correctly, "
  369.                "the FIRST line in your STARTUP-SEQUENCE must be\n\n"
  370.                "'RsrvWarm >NIL:'\n\n"
  371.                "and somewhere in the USER-STARTUP must be an assigment"
  372.                " for 'FUSION:'\n\n"
  373.                "These lines can be added for you automatically by this "
  374.                "installer.  Would you like these lines added?\n\n")
  375.                (help @askbool-help)
  376.                )
  377.  
  378.                (
  379.                     (if (= @pretend 0)
  380.                     (
  381.                         (
  382.                         (if  (not  (exists "s:user-startup"))
  383.                              (textfile
  384.                              (dest "s:user-startup")
  385.                              (append ";user-startup \n\n")
  386.                          )
  387.                     )
  388.                     (textfile
  389.                     (dest "ram:startup-sequence")
  390.                     (append ";BEGIN FUSION Setup (must be before Setpatch!)\n")
  391.                     (append "RsrvWarm >NIL:\n")
  392.                     (append ";END FUSION Setup \n\n")
  393.                     (include "s:startup-sequence")
  394.                     )
  395.                     (rename "s:startup-sequence" "s:startup-sequence.old")
  396.                     (copyfiles
  397.                     (help @copyfiles-help)
  398.                     (source "ram:startup-sequence")
  399.                     (dest "s:")
  400.                     )
  401.                     (delete "ram:startup-sequence")
  402.  
  403.                     (textfile
  404.                     (dest "ram:user-startup")
  405.                     (include "s:user-startup")
  406.                     (append ";BEGIN FUSION assignment\n")
  407.                     (append "assign FUSION: " FUSION_dir)
  408.                     (append "\nassign MSHF: " HF_dir)
  409.                     (append "\n;END FUSION assignment\n")
  410.                     )
  411.                     (rename "s:user-startup" "s:user-startup.old")
  412.                     (copyfiles
  413.                     (help @copyfiles-help)
  414.                     (source "ram:user-startup")
  415.                     (dest "s:")
  416.                     )
  417.                     (delete "ram:user-startup")
  418.                )
  419.           )
  420.           )
  421.      )
  422.      )
  423. )
  424.  
  425. (complete 100)
  426.  
  427. (exit)
  428.